YES 1.147
↳ HASKELL
↳ BR
((foldFM_LE :: (Char -> a -> b -> b) -> b -> Char -> FiniteMap Char a -> b) :: (Char -> a -> b -> b) -> b -> Char -> FiniteMap Char a -> b) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||
data FiniteMap a b = EmptyFM | Branch a b Int (FiniteMap a b) (FiniteMap a b) |
|||||||||||||||||||
instance (Eq a, Eq b) => Eq (FiniteMap a b) where |
|||||||||||||||||||
foldFM_LE :: Ord b => (b -> a -> c -> c) -> c -> b -> FiniteMap b a -> c
|
import qualified FiniteMap import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((foldFM_LE :: (Char -> a -> b -> b) -> b -> Char -> FiniteMap Char a -> b) :: (Char -> a -> b -> b) -> b -> Char -> FiniteMap Char a -> b) |
import qualified Maybe import qualified Prelude |
|||||||||||||||||||
data FiniteMap a b = EmptyFM | Branch a b Int (FiniteMap a b) (FiniteMap a b) |
|||||||||||||||||||
instance (Eq a, Eq b) => Eq (FiniteMap b a) where |
|||||||||||||||||||
foldFM_LE :: Ord a => (a -> c -> b -> b) -> b -> a -> FiniteMap a c -> b
|
import qualified FiniteMap import qualified Prelude |
foldFM_LE k z fr EmptyFM = z foldFM_LE k z fr (Branch key elt vw fm_l fm_r)
| key <= fr
= foldFM_LE k (k key elt (foldFM_LE k z fr fm_l)) fr fm_r | otherwise
= foldFM_LE k z fr fm_l
foldFM_LE k z fr EmptyFM = foldFM_LE3 k z fr EmptyFM foldFM_LE k z fr (Branch key elt vw fm_l fm_r) = foldFM_LE2 k z fr (Branch key elt vw fm_l fm_r)
foldFM_LE1 k z fr key elt vw fm_l fm_r True = foldFM_LE k (k key elt (foldFM_LE k z fr fm_l)) fr fm_r foldFM_LE1 k z fr key elt vw fm_l fm_r False = foldFM_LE0 k z fr key elt vw fm_l fm_r otherwise
foldFM_LE0 k z fr key elt vw fm_l fm_r True = foldFM_LE k z fr fm_l
foldFM_LE2 k z fr (Branch key elt vw fm_l fm_r) = foldFM_LE1 k z fr key elt vw fm_l fm_r (key <= fr)
foldFM_LE3 k z fr EmptyFM = z foldFM_LE3 wv ww wx wy = foldFM_LE2 wv ww wx wy
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
(foldFM_LE :: (Char -> a -> b -> b) -> b -> Char -> FiniteMap Char a -> b) |
import qualified Maybe import qualified Prelude |
|||||||||
data FiniteMap a b = EmptyFM | Branch a b Int (FiniteMap a b) (FiniteMap a b) |
|||||||||
instance (Eq a, Eq b) => Eq (FiniteMap a b) where |
|||||||||
foldFM_LE :: Ord b => (b -> c -> a -> a) -> a -> b -> FiniteMap b c -> a
|
|||||||||
|
|||||||||
|
|||||||||
|
|||||||||
|
import qualified FiniteMap import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ DependencyGraphProof
new_foldFM_LE10(wz34, wz36, wz37, wz38, wz39, wz40, wz41, h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz40, h, ba)
new_foldFM_LE(wz3, Char(Succ(wz500)), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Succ(wz500)), wz64, bb, bc)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Zero, Zero, h, ba) → new_foldFM_LE10(wz34, wz36, wz37, wz38, wz39, wz40, wz41, h, ba)
new_foldFM_LE(wz3, Char(Succ(wz500)), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Succ(wz500)), wz63, bb, bc)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Zero, Succ(wz430), h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz41, h, ba)
new_foldFM_LE(wz3, Char(Zero), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Zero), wz63, bb, bc)
new_foldFM_LE(wz3, Char(Zero), Branch(Char(Succ(wz6000)), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Zero), wz63, bb, bc)
new_foldFM_LE(wz3, Char(Zero), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Zero), wz64, bb, bc)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Succ(wz420), Succ(wz430), h, ba) → new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, wz420, wz430, h, ba)
new_foldFM_LE10(wz34, wz36, wz37, wz38, wz39, wz40, wz41, h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz41, h, ba)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Succ(wz420), Zero, h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz40, h, ba)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Zero, Succ(wz430), h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz40, h, ba)
new_foldFM_LE(wz3, Char(Succ(wz500)), Branch(Char(Succ(wz6000)), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE1(wz3, wz500, wz6000, wz61, wz62, wz63, wz64, wz6000, wz500, bb, bc)
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ DependencyGraphProof
↳ AND
↳ QDP
↳ QDPSizeChangeProof
↳ QDP
new_foldFM_LE(wz3, Char(Zero), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Zero), wz64, bb, bc)
new_foldFM_LE(wz3, Char(Zero), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Zero), wz63, bb, bc)
new_foldFM_LE(wz3, Char(Zero), Branch(Char(Succ(wz6000)), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Zero), wz63, bb, bc)
From the DPs we obtained the following set of size-change graphs:
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ Narrow
↳ QDP
↳ DependencyGraphProof
↳ AND
↳ QDP
↳ QDP
↳ QDPSizeChangeProof
new_foldFM_LE10(wz34, wz36, wz37, wz38, wz39, wz40, wz41, h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz40, h, ba)
new_foldFM_LE(wz3, Char(Succ(wz500)), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Succ(wz500)), wz64, bb, bc)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Zero, Zero, h, ba) → new_foldFM_LE10(wz34, wz36, wz37, wz38, wz39, wz40, wz41, h, ba)
new_foldFM_LE(wz3, Char(Succ(wz500)), Branch(Char(Zero), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE(wz3, Char(Succ(wz500)), wz63, bb, bc)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Zero, Succ(wz430), h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz41, h, ba)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Succ(wz420), Succ(wz430), h, ba) → new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, wz420, wz430, h, ba)
new_foldFM_LE10(wz34, wz36, wz37, wz38, wz39, wz40, wz41, h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz41, h, ba)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Zero, Succ(wz430), h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz40, h, ba)
new_foldFM_LE1(wz34, wz36, wz37, wz38, wz39, wz40, wz41, Succ(wz420), Zero, h, ba) → new_foldFM_LE(wz34, Char(Succ(wz36)), wz40, h, ba)
new_foldFM_LE(wz3, Char(Succ(wz500)), Branch(Char(Succ(wz6000)), wz61, wz62, wz63, wz64), bb, bc) → new_foldFM_LE1(wz3, wz500, wz6000, wz61, wz62, wz63, wz64, wz6000, wz500, bb, bc)
From the DPs we obtained the following set of size-change graphs: